home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / MarkAllAsOld.zprx < prev    next >
Text File  |  1995-05-25  |  533b  |  30 lines
  1. /*
  2.     $VER: MarkAllAsOld.zprx 1.0 (25.5.95) by Ralph Seichter.
  3.           ARexx script for Zodiac's Point.
  4.  
  5.     Marks all messages in all ZP boards as old. The spool directory is not
  6.     touched by this script.
  7. */
  8.  
  9. parse arg zpoint
  10. address value zpoint
  11. options results
  12.  
  13. whichlevel
  14. if result ~= 'BOARDMENU' then do
  15.     requestnotify 'Use this script in the board list only!'
  16.     exit
  17. end
  18.  
  19. jumptoboard 1
  20. do forever
  21.     jumptonew down
  22.     if ~rc then exit
  23.     enterboard
  24.     selectmessage new
  25.     markasold
  26.     boardmenu
  27. end
  28.  
  29. /* EOF */
  30.